XPpop()
 Pop a Message on the Screen
------------------------------------------------------------------------------

   Function:   XPpop()

               Simple function to pop a Message on Screen.

   Syntax:     XPpop(cTitle, cString) --> NIL

   Arguments:  cTitle and cString..

   Returns:    NIL

   Usage:      Source:
               Function XPpop(cTitle,cText)
               Local aText := XPaDelimit(cText)
               Local i := XPmidRow() - (Len(aText)/2)
               XPcenterBox(XPaMaxLen(aText)+2,Len(aText)+3,cTitle)
               aEval(aText,{|s|XPcenter(i++,s)})
               Return (NIL)

               Static Function XPcenterBox(w,h,cTitle)
               XPbox2(XPmidRow()-(h/2),XPmidCol()-(w/2),;
                      XPmidRow()+(h/2),XPmidCol()+(w/2),cTitle)
               Return (NIL)